home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2005 October / PCWOCT05.iso / Software / FromTheMag / XAMPP 1.4.14 / xampp-win32-1.4.14-installer.exe / xampp / php / pear / adodb / adodb-errorpear.inc.php < prev    next >
Encoding:
PHP Script  |  2005-05-17  |  2.3 KB  |  88 lines
  1. <?php
  2. /** 
  3.  * @version V4.63 17 May 2005 (c) 2000-2005 John Lim (jlim@natsoft.com.my). All rights reserved.
  4.  * Released under both BSD license and Lesser GPL library license. 
  5.   Whenever there is any discrepancy between the two licenses, 
  6.   the BSD license will take precedence. 
  7.  *
  8.  * Set tabs to 4 for best viewing.
  9.  * 
  10.  * Latest version is available at http://php.weblogs.com
  11.  * 
  12. */
  13. include_once('PEAR.php');
  14.  
  15. if (!defined('ADODB_ERROR_HANDLER')) define('ADODB_ERROR_HANDLER','ADODB_Error_PEAR');
  16.  
  17. /*
  18. * Enabled the following if you want to terminate scripts when an error occurs
  19. */
  20. //PEAR::setErrorHandling (PEAR_ERROR_DIE);
  21.  
  22. /*
  23. * Name of the PEAR_Error derived class to call.
  24. */
  25. if (!defined('ADODB_PEAR_ERROR_CLASS')) define('ADODB_PEAR_ERROR_CLASS','PEAR_Error');
  26.  
  27. /*
  28. * Store the last PEAR_Error object here
  29. */
  30. global $ADODB_Last_PEAR_Error; $ADODB_Last_PEAR_Error = false;
  31.  
  32.   /**
  33. * Error Handler with PEAR support. This will be called with the following params
  34. *
  35. * @param $dbms        the RDBMS you are connecting to
  36. * @param $fn        the name of the calling function (in uppercase)
  37. * @param $errno        the native error number from the database 
  38. * @param $errmsg    the native error msg from the database
  39. * @param $p1        $fn specific parameter - see below
  40. * @param $P2        $fn specific parameter - see below
  41.     */
  42. function ADODB_Error_PEAR($dbms, $fn, $errno, $errmsg, $p1=false, $p2=false)
  43. {
  44. global $ADODB_Last_PEAR_Error;
  45.     
  46.     if (error_reporting() == 0) return; // obey @ protocol
  47.     switch($fn) {
  48.     case 'EXECUTE':
  49.         $sql = $p1;
  50.         $inputparams = $p2;
  51.         
  52.         $s = "$dbms error: [$errno: $errmsg] in $fn(\"$sql\")";
  53.         break;
  54.         
  55.     case 'PCONNECT':
  56.     case 'CONNECT':
  57.         $host = $p1;
  58.         $database = $p2;
  59.         
  60.         $s = "$dbms error: [$errno: $errmsg] in $fn('$host', ?, ?, '$database')";
  61.         break;
  62.         
  63.     default:
  64.         $s = "$dbms error: [$errno: $errmsg] in $fn($p1, $p2)";
  65.         break;
  66.     }
  67.     
  68.     $class = ADODB_PEAR_ERROR_CLASS;
  69.     $ADODB_Last_PEAR_Error = new $class($s, $errno,
  70.         $GLOBALS['_PEAR_default_error_mode'],
  71.         $GLOBALS['_PEAR_default_error_options'], 
  72.         $errmsg);
  73.         
  74.     //print "<p>!$s</p>";
  75. }
  76.  
  77. /**
  78. * Returns last PEAR_Error object. This error might be for an error that
  79. * occured several sql statements ago.
  80. */
  81. function &ADODB_PEAR_Error()
  82. {
  83. global $ADODB_Last_PEAR_Error;
  84.  
  85.     return $ADODB_Last_PEAR_Error;
  86. }
  87.         
  88. ?>